Option Explicit
Sub L_Sample008()
    Dim mySht  As Worksheet
    Dim myShp  As Shape
    Dim myConf As ControlFormat
    Dim i      As Long
    Set mySht = ActiveSheet					'N
    For Each myShp In mySht.Shapes
        On Error Resume Next
        myShp.Delete
        On Error Resume Next
    Next
    For i = 1 To 5
        'wmBjpsW
        Set myShp = mySht.Shapes.AddFormControl( _
        	xlButtonControl, 100, 30 * i + 20, 100, 20)
        With myShp
            .Name = "TestBtn" & CStr(i)        		'W
            With .TextFrame.Characters
                .Text = "TEST008_" & CStr(i)   		'ܦr
            End With
            .OnAction = "L_Sample008_1"        		'
        End With
    Next
    Set myShp = Nothing						'
    Set mySht = Nothing
End Sub

Sub L_Sample008_1()
    'n
    Dim myVar As Variant
    myVar = Application.Caller
    Select Case TypeName(myVar)
        Case "String"
            MsgBox myVar
    End Select
End Sub
